* lisp.h (SREF): Produce rvalue.

(SSET): New macro.

diff --git a/src/lisp.h b/src/lisp.h
index eb15e4753b12b7420151ff477bc77e69696a9b49..9257a88838cf0168edd27945df70ea1e3646e8c6 100644 (file)
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -541,7 +541,8 @@ extern Lisp_Object make_number ();
 
 /* Convenience macros for dealing with Lisp strings.  */
 
-#define SREF(string, index)    XSTRING (string)->data[index]
+#define SREF(string, index)    (XSTRING (string)->data[index] + 0)
+#define SSET(string, index, new) (XSTRING (string)->data[index] = (new))
 #define SDATA(string)          (XSTRING (string)->data + 0)
 #define SCHARS(string)         (XSTRING (string)->size + 0)
 #define SBYTES(string)         (STRING_BYTES (XSTRING (string)) + 0)